home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtfrm51.zip
/
FRMSRC.ZIP
/
UNITMAIN.DFM
/
UNITMAIN.txt
Wrap
Text File
|
1996-06-22
|
4KB
|
167 lines
object MainDialog: TMainDialog
Left = 146
Top = 154
BorderStyle = bsDialog
Caption = 'Main Dialog'
ClientHeight = 381
ClientWidth = 592
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
PixelsPerInch = 120
Position = poScreenCenter
TextHeight = 16
object Bevel1: TBevel
Left = 8
Top = 0
Width = 581
Height = 65
Style = bsRaised
end
object Label1: TLabel
Left = 168
Top = 8
Width = 414
Height = 51
Caption =
'These demos display some of Printit'#39's unique printing abilities.' +
' They were specifically created out of user demand to answer que' +
'stions on Printit and show the more advanced topics'
Font.Color = clPurple
Font.Height = -15
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object Printit: TLabel
Left = 24
Top = 8
Width = 117
Height = 38
Caption = 'Printit'
Font.Color = clYellow
Font.Height = -33
Font.Name = 'Times New Roman'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label2: TLabel
Left = 32
Top = 44
Width = 78
Height = 16
Caption = 'Version 5.1'
end
object Panel1: TPanel
Left = 12
Top = 76
Width = 485
Height = 297
TabOrder = 0
object Label3: TLabel
Left = 12
Top = 8
Width = 445
Height = 36
Alignment = taCenter
Caption =
'The source for each demo is in the form # printed next to them e' +
'.g. Demo 01 is in unit FDemo01, Demo 10 is in unit FDemo10'
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
WordWrap = True
end
object ListBox1: TListBox
Left = 12
Top = 52
Width = 461
Height = 233
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 17
Items.Strings = (
'01 Actual Font Styles and Sizes - As supplied by the Printer Dri' +
'ver '
'02 Multiple TPanel components - Combined size larger than page'
'03 Printing the Active Page on a TNotebook'
'04 Print a Window'
'05 Print Invoice #1 - View or direct to printer'
'06 Print a form with Fishes from a Table'
'07 Combined Window and Grid Print '
'08 Grid Print'
'09 Grid and Window on same page - View and Direct Print to print' +
'er'
'10 Print current Printer Information'
'11 Print Fonts of currently selected printer'
'12 Simple Pie Chart'
'13 Print a few shapes'
'14 A Fax Form example'
'15 Various components printed'
'16 Print Grid backdrops'
'17 Print Invoice # 2'
'18 Print a customised letter'
''
''
'')
ParentFont = False
TabOrder = 0
OnDblClick = ListBox1DblClick
end
end
object View: TButton
Left = 504
Top = 120
Width = 85
Height = 33
Caption = '&View'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = ViewClick
end
object Exit: TButton
Left = 503
Top = 260
Width = 86
Height = 33
Caption = '&Exit'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = ExitClick
end
object Printer: TButton
Left = 504
Top = 76
Width = 85
Height = 33
Caption = 'Set &Printer'
Font.Color = clBlack
Font.Height = -15
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = PrinterClick
end
object PrinterSetupDialog1: TPrinterSetupDialog
Left = 512
Top = 316
end
end